home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / bob13.arc / TYPE.BOB < prev    next >
Text File  |  1991-10-01  |  221b  |  15 lines
  1. main(; i,name)
  2. {
  3.     for (i = 1; name = getarg(i); ++i)
  4.     typefile(name);
  5. }
  6.  
  7. typefile(name; fp,ch)
  8. {
  9.     if (fp = fopen(name,"r")) {
  10.     while ((ch = getc(fp)) != -1)
  11.         putc(ch,stdout);
  12.     fclose(fp);
  13.     }
  14. }
  15.